10 A=5    :N=1:DEF FNA(X)=X-INT(X/2)*2:PRINTN;3;4;5:DEF FNB(X)=X-INT(X/10)*10
20 M=INT(SQR(2)*A)-A:M=(FNA(M)<>FNA(A))+M
30 FORX=MTO1STEP-2:C=(A*A-X*X)/2/X:IFC=INT(C)THEN GOTO100
40 NEXTX:A=A+1:GOTO20
100 IFINT(FNB(FNB(A)^2+FNB(C)^2))=INT(FNB(FNB(C+X)^2))THENN=N+1:PRINTN;A;C;C+X
110 GOTO40